home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / zbpc_460.zip / GRAPHICS.EXE / MODE.BAS < prev    next >
BASIC Source File  |  1991-03-18  |  256b  |  15 lines
  1. FOR I=0 TO 23
  2.   MODE I
  3.   PRINT@(2,1) I
  4.   COLOR 219,4
  5.   CIRCLE 500,350,400
  6.   COLOR 15
  7.   PLOT 100,150 TO 1200,300
  8.   PLOT 100,700 TO 1000,400
  9.   COLOR 65
  10.   FILL 500,300
  11. "Freeze"
  12. IFINKEY$=""GOTO"Freeze"
  13. NEXT
  14. MODE 3
  15.